home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G20F / G20_SHIO.Dxr / 00079_Mscroll.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  825 b   |  34 lines
  1. global originalv
  2.  
  3. on scrollbup
  4.   global originalv
  5.   puppetSprite(1, 1)
  6.   set originalv to the locV of sprite 1
  7.   repeat while the stillDown
  8.     set the memberNum of sprite 15 to 63
  9.     set originalv to originalv + 8
  10.     set the locV of sprite 1 to originalv
  11.     if the locV of sprite 1 > 340 then
  12.       set the locV of sprite 1 to 340
  13.     end if
  14.     updateStage()
  15.   end repeat
  16.   set the memberNum of sprite 15 to 62
  17. end
  18.  
  19. on scrollbdown
  20.   global originalv
  21.   puppetSprite(1, 1)
  22.   set originalv to the locV of sprite 1
  23.   repeat while the stillDown
  24.     set the memberNum of sprite 16 to 65
  25.     set originalv to originalv - 8
  26.     set the locV of sprite 1 to originalv
  27.     if the locV of sprite 1 < 110 then
  28.       set the locV of sprite 1 to 110
  29.     end if
  30.     updateStage()
  31.   end repeat
  32.   set the memberNum of sprite 15 to 64
  33. end
  34.